home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 15 / 64er_Magazin_Sonderheft_15_19xx_Markt__Technik_de_Side_B.d64 / beispiel 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  42 lines
  1. 100 iffl=0thenfl=1:load"directory-load",8,1
  2. 110 print"[147]                                        ";
  3. 120 print"               disk-menue               ";
  4. 130 print"         [154]written by udo woehler         ";
  5. 140 print"                                        ";
  6. 150 print"bitte warten"
  7. 160 poke53281,6:poke53280,14
  8. 170 dima$(143)
  9. 180 sys49152,,zh%,a$,,,,,"p"
  10. 190 zh=zh%-1:ifzh=-1thenprint"[147]";:end
  11. 200 an=0
  12. 210 e=an+18:a=an
  13. 220 ife>zhthene=zh
  14. 230 bu$=chr$(e-a+65)
  15. 240 print"[147]               disk-menue"
  16. 250 print"         [154]written by udo woehler"
  17. 260 print"  zum starten buchstabe (a-";bu$;") druecken"
  18. 270 ifzh>19thenprint"<cr> weitere files";
  19. 280 print"[154]"
  20. 290 fort=atoe:print:print"         ";chr$(65+t-a);")  ";a$(t);:next
  21. 300 gets$:ifs$=""then300
  22. 310 ifs$=chr$(13)thenan=an+19:ifan>zhthenan=0
  23. 320 ifs$=chr$(13)then210
  24. 330 ifs$<"a"ands$>"s"then300
  25. 340 ifan+asc(s$)-65>zhthen300
  26. 350 an=an+asc(s$)-65
  27. 360 print"[147]loading ";a$(an)
  28. 370 na$=""
  29. 380 fort=16to1step-1:ifmid$(a$(an),t,1)<>" "thenna$=left$(a$(an),t)+"*":t=0
  30. 390 next
  31. 400 open1,8,2,na$+",p,r"
  32. 410 get#1,a$:get#1,b$:close1:ad=asc(b$+chr$(0))*256+asc(a$+chr$(0))
  33. 420 po=0:ifad<>2049andad<>2048thenpo=1
  34. 430 if ad<828 thenpo=2
  35. 440 print"load"chr$(34);na$;chr$(34)",8,1"
  36. 450 ifpo=2thenprint"":poke198,1:poke631,13:end
  37. 460 ifpo=1thenprint"new":print"sys"ad""
  38. 470 ifpo=1thenpoke198,4:poke631,13:poke632,13:poke633,154:poke634,13:end
  39. 480 print"run"
  40. 490 poke198,3:poke631,13:poke632,154:poke633,13
  41. 500 end
  42.